(select-safe-coding-system): Fix typo: symbol-name -> symbol-value.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index be151d8f0ef917e672452d0d2c3a224a22fd8bfa..efedd889f02cd372ce0d5ac8de8a52a27bb6c80b 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -589,7 +589,7 @@ and TO is ignored."
   (let ((tail coding-category-list)
        preferred base)
     (while (and tail
-               (not (setq preferred (symbol-name (car tail)))))
+               (not (setq preferred (symbol-value (car tail)))))
       (setq tail (cdr tail)))
     (and (coding-system-p preferred)
         (setq base (coding-system-base preferred))